home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / netzwerk / parnet-filesystem / install-parnfs < prev    next >
Text File  |  1996-02-26  |  3KB  |  118 lines
  1. ; ParNFS Installation :vi:nosi:noai
  2. ; $VER: $Id: Install-ParNFS,v 1.3 1993/12/02 22:53:24 Rhialto Exp $
  3.  
  4. (set @app-name "ParNFS")
  5. (welcome @app-name " Installation")
  6.  
  7. (if (exists "ParNFS_Stuff:" (noreq))
  8.     (set @default-dest (expandpath "ParNFS_Stuff:/"))
  9.     (set @default-dest "Work:")
  10. )
  11.  
  12. (set @default-dest
  13.     (askdir
  14.     (prompt "Where do you want to install " @app-name "?")
  15.     (help @askdir-help)
  16.     (default @default-dest)
  17.     )
  18. )
  19.  
  20. (set @default-dest (tackon @default-dest "ParNFS"))
  21. (makedir @default-dest (infos))
  22. (makeassign "ParNFS_Stuff" @default-dest)
  23.  
  24. (set AMIGANUM
  25.     (+ 1 (askchoice
  26.     (prompt "Install for which Amiga?")
  27.     (choices "Amiga 1: the primary server"
  28.          "Amiga 2: the primary client")
  29.     (default 2)             ; invalid ie no choice
  30.     (help @askchoice-help)
  31.     ))
  32. )
  33.  
  34. (set Mountlist
  35.     (select AMIGANUM "" "Mountlist.Quick.2nd" "Mountlist.Quick.1st")
  36. )
  37.  
  38. (copyfiles
  39.     (prompt "Copying client and server code")
  40.     (source "")
  41.     (dest @default-dest)
  42.     (choices
  43.          "QuickSetup"
  44.          "parnet.device"
  45.          "NetworkFileServer"
  46.          "NetworkFileSystem"
  47.          Mountlist)
  48.     (infos)
  49.     (confirm)
  50.     (help (cat "You always need \"QuickSetup\" and \"parnet.device\".\n"
  51.           "For a server, you need \"NetworkFileServer\".\n"
  52.           "For a client, you need the other files.\n\n"
  53.           @copyfiles-help))
  54. )
  55.  
  56. ;;;;
  57. ;
  58. ; Only ask experienced user to edit the QuickSetup script
  59.  
  60. (if (>= @user-level 2) (
  61.     (set Editor "")
  62.     (if (> 0 (exists "ENV:EDITOR")) (
  63.     (set Editor (getenv "EDITOR"))
  64.     (if (= 0 (exists Editor) (set Editor "")))
  65.     ))
  66.     (if (and (= Editor "") (exists "SYS:Tools/MEmacs"))
  67.     (set Editor "SYS:Tools/MEmacs")
  68.     )
  69.     (if (and (= Editor "") (exists "C:Ed"))
  70.     (set Editor "C:Ed")
  71.     )
  72.  
  73.     (if (not (= Editor ""))
  74.     (run (cat Editor " QuickSetup")
  75.         (prompt "Do you want to edit the QuickSetup script? "
  76.             "You may want to do this do automatically create "
  77.             "references to volumes on the server machine, "
  78.             "so you'll have some icons for the Workbench.")
  79.         (confirm)
  80.         (help @run-help)
  81.     )
  82.     )
  83. ))
  84.  
  85. (set bootopt
  86.     (askoptions
  87.     (prompt "Do you want to start ParNFS automatically every time "
  88.         "your Amiga boots?")
  89.     (choices "Client" "Server")
  90.     (default 3)
  91.     (help @askoptions-help)
  92.     )
  93. )
  94.  
  95. (set cmd2 "")
  96. (if (in bootopt 0 1) (set cmd2 "run Execute ParNFS_Stuff:QuickSetup"))
  97. (if (in bootopt 0)   (set cmd2 (cat cmd2 " client")))
  98. (if (in bootopt 1)   (set cmd2 (cat cmd2 " server")))
  99. (if (in bootopt 0 1) (set cmd2 (cat cmd2 " " AMIGANUM " Quiet\n")))
  100.  
  101. (set UserStartup (cat
  102.     "Assign ParNFS_Stuff: \"" @default-dest "\"\n"
  103.     cmd2
  104. ))
  105.  
  106. (startup @app-name
  107.     (prompt (cat
  108.         "One Assign needs to be added to the \"S:user-startup\" "
  109.         "so that your system will be properly configured to use "
  110.         @app-name ".\n\n"
  111.         "The Network also needs to be started before use.\n\n"
  112.         "Remember to copy the \"Node.rinfo\" icon to all disks "
  113.         "that you want to be visible on a networked Workbench."
  114.     ))
  115.     (command UserStartup)
  116.     (help @startup-help)
  117. )
  118.